home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1984 July / 1984-07.d64 / color chart_64 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1984-01-01  |  586 b   |  14 lines
  1. 40 for i=49152 to 49188: read a: poke i,a: next:poke 53280,11
  2. 50 print chr$(147):for i=1024 to i+1000: poke i,160: poke i+54272,11:nexti
  3. 60 for i=0 to 15: for j=0 to 15
  4. 70 p=1196+(40*i)+j: poke p,j+1: poke p+54272,j: next j,i
  5. 80 print tab(15)chr$(5)"color chart":for i=1 to 19:print:next
  6. 85 print"this chart shows all combinations of   "
  7. 86 print "foreground and background colors.      "
  8. 87 print "foreground increases from left to right"
  9. 88 print "background increases from top to bottom";
  10. 90 sys 12*4096
  11. 100 data 169,90,133,251,169,0,141,33,208,162,15,120
  12. 105 data 173,17,208,48,251,173,18,208
  13. 110 data 197,251,208,249,238,33,208,24,105,8,133,251,202,16,233,48,219
  14.